home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 551-575 / disk_559 / apig / apiglib_v11.lzh / e10_superwindow.rexx < prev    next >
OS/2 REXX Batch file  |  1991-09-28  |  2KB  |  91 lines
  1. /* Example of creating SuperBitMap Window   */
  2.  
  3. /*  */
  4.  x = addlib("apig.library",0,-30,0)
  5.  
  6.  portname = "example10_port"
  7.  p = openport(portname)
  8.  call set_apig_globals()       /* Create Intuitioin Global Constants */
  9.  
  10.  scr = 0 
  11.  scrtitle = "Hey Buddy, Yea You,  This is Your New Screen  !"
  12.  wintitle = "This is your title"
  13.  
  14.  winidcmp = CLOSEWINDOW
  15.  
  16.  /*  *** NOTE *** SUPER_BITMAP FLAG IS SET */
  17.  
  18.  winflags = WINDOWCLOSE+WINDOWDRAG+WINDOWSIZING+WINDOWDEPTH+SUPER_BITMAP+GIMMEZEROZERO
  19.  
  20.  scr = openscreen(0,0,640,400,3,4,5,LACE+HIRES,CUSTOMSCREEN,scrtitle)
  21.  
  22.  
  23.  sbmap = makebitmap(640,1024,3)   /* WE MAKE A VERY LARGE BITMAP */
  24.  
  25.  
  26.  /* OPEN WINDOW, SUPPLY A POINTER TO THE SUPER BITMAP  */
  27.  w1  = openwindow(portname,0,0,640,200,2,4,winidcmp,winflags,wintitle,scr,0,sbmap,0)
  28.   rpw1      = getwindowrastport(w1) 
  29.   wlayer    = getwindowlayer(w1)
  30.   layerinfo = getlayerinfo(wlayer)
  31.   image     = loadimage("bitmap",0,0,0)
  32.   image2    = loadimage("bitmap2",0,0,0)
  33.   
  34.   x = drawimage(rpw1,image,20,20)
  35.   x = drawimage(rpw1,image2,60,60)
  36.   x = drawimage(rpw1,image,320,320)  /* NOTE: this is out of view */
  37.   x = drawimage(rpw1,image2,360,360) /* NOTE: this is out of view */
  38.   
  39.   x = pitext(rpw1,70,80,"This bitmap is 640 by 1024",6,3,JAM2,0)
  40.   x = pitext(rpw1,70,92,"The two images were also drawn at position 320,320",6,3,JAM2,0)
  41.   x = pitext(rpw1,70,104,"  gonna scroll the layer of this superbitmap",6,3,JAM2,0)
  42.   wait 5 sec
  43.   
  44.   /* scroll around the bitmap */
  45.   do i = 1 to 220
  46.      z = pitext(rpw1,30,40,"This is a test",1,2,JAM2,0,0)
  47.      x = scrolllayer(layerinfo,wlayer,0,1)
  48.   end
  49.   
  50.   
  51.   x = pitext(rpw1,70,300,"  WATCH ME SCROLL LEFT   ",3,1,JAM2,0)
  52.   wait 2 sec
  53.   x = pitext(rpw1,70,312,"  WATCH NOW   ",3,1,JAM2,0)
  54.   wait 1 sec
  55.   x = scrolllayer(layerinfo,wlayer,40,0)
  56.   
  57.   wait 2 sec
  58.   x = pitext(rpw1,70,300,"  WATCH ME SCROLL RIGHT  ",2,1,JAM2,0)
  59.   wait 2 sec
  60.   x = pitext(rpw1,70,312,"  WATCH NOW   ",2,1,JAM2,0)
  61.   wait 1 sec
  62.   x = scrolllayer(layerinfo,wlayer,-40,0)
  63.   
  64.   
  65. exitme = 0
  66. wait 2 sec
  67. x = pitext(rpw1,70,350,"  Im Done  ",5,1,JAM2,0)
  68. do forever
  69.  
  70.      x = waitpkt(portname)
  71.   
  72.      do forever 
  73.         msg = getpkt(portname)
  74.         if msg = '0000 0000'x then leave
  75.         class = getarg(msg,0)
  76.         if class = CLOSEWINDOW then exitme = 1
  77.         x = reply(msg,0)  
  78.      end  
  79.    if exitme = 1 then leave
  80.    
  81. end
  82.  
  83.   
  84.   x = freebitmap(sbmap)
  85.   x = freeimage(image)
  86.   x = freeimage(image2)
  87.   
  88.   a =closewindow(w1)
  89.   a =closescreen(scr)
  90.   exit
  91.